   5 .BIORHYTHMS
  10 :RETURN ;CLEAR 
  11 &(9)=50
  12 PRINT "*******BIORHYTHMS*******
  14 PRINT ;PRINT "GOOD INDEX = 100, BAD = 0
  15 BC=RND (32)×8;FC=BC+4+RND (32)×8
  17 PRINT ;PRINT 
  20 INPUT "TODAY'S DATE (IE. 4-18-79)",M,D,Y;A=M;B=D;C=Y
  25 IF (A<1)+(A>12)+(B<1)+(B>31)+(C>99)PRINT "ILLEGAL ENTRY!";GOTO 20
  30 INPUT "YOUR BIRTHDATE?           ",M,D,Y;IF C-Y>88PRINT "TOO FAR BACK!";GOTO 30
  35 IF (M<1)+(M>12)+(D<1)+(D>31)+(Y>C)PRINT "ILLEGAL ENTRY!";GOTO 30
  36 O=M;R=D;V=Y
  37 &(9)=210
  38 F=BC+4+RND (32)×8;G=F+4+RND (32)×8
  39 &(1)=F;&(0)=F;&(2)=G;&(3)=G
  40 T=C-Y;Y=T×365+(T×25÷100)+(B-D);U=A-M;M=U×30+(U×55÷100)
  50 T=Y+M-18;D=T÷33;I=RM;D=T÷28;E=RM;D=T÷23;P=RM
  60 CLEAR ;BOX -5,0,143,1,1
  65 PRINT #1,O,"-",R,"-",V,#10,A,"-",#1,B,"-",C
  70 D=1;F=1;G=1;IF I>16I=33-I;D=-1
  80 IF E>=14E=28-E;F=-1
  90 IF P>11P=23-P;G=-1
 100 FOR X=-80TO 68STEP 4
 120 I=I+D;IF I=0D=1
 130 A=(27225-((165-I×20)×(165-I×20)))÷1000
 140 IF A<0D=-1;GOTO 120
 150 A=A×D
 160 E=E+F;IF E=0F=1
 170 B=(19600-((140-E×20)×(140-E×20)))÷725
 180 IF B<0E=E-1;F=-1;GOTO 160
 190 B=B×F
 200 P=P+G;IF P=0G=1
 210 C=(13225-((115-P×20)×(115-P×20)))÷485
 220 IF C<0G=-1;GOTO 200
 230 C=C×G
 233 IF X=-8GOSUB 1000
 235 IF X=-80CX=X;CY=A;PRINT "I";CX=X;CY=B;PRINT "E";CX=X;CY=C;PRINT "P";GOTO 260
 236 IF (X=-8)+(X=68)CX=X+1;CY=A;PRINT "I";CX=X+1;CY=B;PRINT "E";CX=X+1;CY=C;PRINT "P";GOTO 260
 237 IF X=-76GOTO 260
 250 LINE N,J,0;LINE X,A,1;LINE N,K,0;LINE X,B,1;LINE N,L,0;LINE X,C,1
 255 BOX X,0,1,65,1
 260 J=A;K=B;L=C;N=X
 265 IF X=-8Q=((A+B+C)÷3)×2+54;CX=-7;CY=34;PRINT "▼";IF Q>100Q=100
 266 IF (A=B)+(A=C)+(B=C)CX=X+1;CY=-32;PRINT "▲
 270 NEXT X
 280 CY=-39;PRINT "TODAY'S INDEX = ",#1,Q
 290 BC=RND (32)×8;FC=BC+4+RND (32)×8;IF &(22)=16GOTO 10
 300 F=BC+4+RND (32)×8;G=F+4+RND (32)×8;&(1)=F;&(0)=F;&(2)=G;&(3)=G;GOTO 290
1000 FOR W=1TO 65STEP 5;BOX X,0,1,W,3;NEXT W;RETURN 
RUN 
